home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / save.bas < prev    next >
BASIC Source File  |  1993-11-30  |  6KB  |  225 lines
  1. 10000 DIM FIRST%(400)
  2. 10010 '
  3. 10020 GOSUB *ファースト
  4. 10030 KILL  "CS\CARMINE1.SAV"
  5. 10040 SAVE@ "CS\CARMINE1.SAV",FIRST%
  6. 10050 KILL  "CS\CARMINE2.SAV"
  7. 10060 OPEN "O",#1,"CS\CARMINE2.SAV"
  8. 10070 PRINT #1,NA$(1)+","+NA$(2)+","+NA$(3)+","+NA$(4)+","+NA$(5)+","+NA$(6)
  9. 10080 CLOSE
  10. 10090 ERASE FIRST%
  11. 10100 '
  12. 10110 IF KEIZOKU=0 THEN
  13. 10120   KEIZOKU=0
  14. 10130   END
  15. 10140 ENDIF
  16. 10150 IF KEIZOKU=1 THEN
  17. 10160   KEIZOKU=0
  18. 10170   IF SCR(1)=1 THEN SCR(1)=0 ELSE IF SCR(1)=0 THEN SCR(1)=1
  19. 10180   IF SCR(1)=0 THEN SCR(3)=1 ELSE IF SCR(1)=1 THEN SCR(3)=0
  20. 10190   CHAIN "CAMP.BAS",,ALL
  21. 10200 ENDIF
  22. 10210 '
  23. 10220 *ファースト
  24. 10230 '
  25. 10240 FIRST%(1) =MHP(1)
  26. 10250 FIRST%(2) =HP(1)
  27. 10260 FIRST%(3) =MMP(1)
  28. 10270 FIRST%(4) =MP(1)
  29. 10280 FIRST%(5) =KIY(1)
  30. 10290 FIRST%(6) =BIN(1)
  31. 10300 FIRST%(7) =KIN(1)
  32. 10310 FIRST%(8) =SEIM(1)
  33. 10320 FIRST%(9) =TIR(1)
  34. 10330 FIRST%(10)=SEIS(1)
  35. 10340 FIRST%(11)=IID(1,1)
  36. 10350 FIRST%(12)=IID(1,2)
  37. 10360 FIRST%(13)=IID(1,3)
  38. 10370 FIRST%(14)=IID(1,4)
  39. 10380 FIRST%(15)=IID(1,5)
  40. 10390 FIRST%(16)=IID(1,6)
  41. 10400 FIRST%(17)=IID(1,7)
  42. 10410 FIRST%(18)=IID(1,8)
  43. 10420 FIRST%(19)=IID(1,9)
  44. 10430 FIRST%(20)=IID(1,10)
  45. 10440 FIRST%(21)=IID(1,11)
  46. 10450 FIRST%(22)=IID(1,12)
  47. 10460 FIRST%(23)=AID(1)
  48. 10470 FIRST%(24)=KIYEXP(1)
  49. 10480 FIRST%(25)=BINEXP(1)
  50. 10490 FIRST%(26)=KINEXP(1)
  51. 10500 FIRST%(27)=SEIMEXP(1)
  52. 10510 FIRST%(28)=MHPEXP(1)
  53. 10520 FIRST%(29)=DEAD(1)
  54. 10530 '
  55. 10540 FIRST%(51)=MHP(2)
  56. 10550 FIRST%(52)=HP(2)
  57. 10560 FIRST%(53)=MMP(2)
  58. 10570 FIRST%(54)=MP(2)
  59. 10580 FIRST%(55)=KIY(2)
  60. 10590 FIRST%(56)=BIN(2)
  61. 10600 FIRST%(57)=KIN(2)
  62. 10610 FIRST%(58)=SEIM(2)
  63. 10620 FIRST%(59)=TIR(2)
  64. 10630 FIRST%(60)=SEIS(2)
  65. 10640 FIRST%(61)=IID(2,1)
  66. 10650 FIRST%(62)=IID(2,2)
  67. 10660 FIRST%(63)=IID(2,3)
  68. 10670 FIRST%(64)=IID(2,4)
  69. 10680 FIRST%(65)=IID(2,5)
  70. 10690 FIRST%(66)=IID(2,6)
  71. 10700 FIRST%(67)=IID(2,7)
  72. 10710 FIRST%(68)=IID(2,8)
  73. 10720 FIRST%(69)=IID(2,9)
  74. 10730 FIRST%(70)=IID(2,10)
  75. 10740 FIRST%(71)=IID(2,11)
  76. 10750 FIRST%(72)=IID(2,12)
  77. 10760 FIRST%(73)=AID(2)
  78. 10770 FIRST%(74)=KIYEXP(2)
  79. 10780 FIRST%(75)=BINEXP(2)
  80. 10790 FIRST%(76)=KINEXP(2)
  81. 10800 FIRST%(77)=SEIMEXP(2)
  82. 10810 FIRST%(78)=MHPEXP(2)
  83. 10820 FIRST%(79)=DEAD(2)
  84. 10830 '
  85. 10840 FIRST%(101)=MHP(3)
  86. 10850 FIRST%(102)=HP(3)
  87. 10860 FIRST%(103)=MMP(3)
  88. 10870 FIRST%(104)=MP(3)
  89. 10880 FIRST%(105)=KIY(3)
  90. 10890 FIRST%(106)=BIN(3)
  91. 10900 FIRST%(107)=KIN(3)
  92. 10910 FIRST%(108)=SEIM(3)
  93. 10920 FIRST%(109)=TIR(3)
  94. 10930 FIRST%(110)=SEIS(3)
  95. 10940 FIRST%(111)=IID(3,1)
  96. 10950 FIRST%(112)=IID(3,2)
  97. 10960 FIRST%(113)=IID(3,3)
  98. 10970 FIRST%(114)=IID(3,4)
  99. 10980 FIRST%(115)=IID(3,5)
  100. 10990 FIRST%(116)=IID(3,6)
  101. 11000 FIRST%(117)=IID(3,7)
  102. 11010 FIRST%(118)=IID(3,8)
  103. 11020 FIRST%(119)=IID(3,9)
  104. 11030 FIRST%(120)=IID(3,10)
  105. 11040 FIRST%(121)=IID(3,11)
  106. 11050 FIRST%(122)=IID(3,12)
  107. 11060 FIRST%(123)=AID(3)
  108. 11070 FIRST%(124)=KIYEXP(3)
  109. 11080 FIRST%(125)=BINEXP(3)
  110. 11090 FIRST%(126)=KINEXP(3)
  111. 11100 FIRST%(127)=SEIMEXP(3)
  112. 11110 FIRST%(128)=MHPEXP(3)
  113. 11120 FIRST%(129)=DEAD(3)
  114. 11130 '
  115. 11140 FIRST%(151) =MHP(4)
  116. 11150 FIRST%(152) =HP(4)
  117. 11160 FIRST%(153) =MMP(4)
  118. 11170 FIRST%(154) =MP(4)
  119. 11180 FIRST%(155) =KIY(4)
  120. 11190 FIRST%(156) =BIN(4)
  121. 11200 FIRST%(157) =KIN(4)
  122. 11210 FIRST%(158) =SEIM(4)
  123. 11220 FIRST%(159) =TIR(4)
  124. 11230 FIRST%(160)=SEIS(4)
  125. 11240 FIRST%(161)=IID(4,1)
  126. 11250 FIRST%(162)=IID(4,2)
  127. 11260 FIRST%(163)=IID(4,3)
  128. 11270 FIRST%(164)=IID(4,4)
  129. 11280 FIRST%(165)=IID(4,5)
  130. 11290 FIRST%(166)=IID(4,6)
  131. 11300 FIRST%(167)=IID(4,7)
  132. 11310 FIRST%(168)=IID(4,8)
  133. 11320 FIRST%(169)=IID(4,9)
  134. 11330 FIRST%(170)=IID(4,10)
  135. 11340 FIRST%(171)=IID(4,11)
  136. 11350 FIRST%(172)=IID(4,12)
  137. 11360 FIRST%(173)=AID(4)
  138. 11370 FIRST%(174)=KIYEXP(4)
  139. 11380 FIRST%(175)=BINEXP(4)
  140. 11390 FIRST%(176)=KINEXP(4)
  141. 11400 FIRST%(177)=SEIMEXP(4)
  142. 11410 FIRST%(178)=MHPEXP(4)
  143. 11420 FIRST%(179)=DEAD(4)
  144. 11430 '
  145. 11440 FIRST%(201)=MHP(5)
  146. 11450 FIRST%(202)=HP(5)
  147. 11460 FIRST%(203)=MMP(5)
  148. 11470 FIRST%(204)=MP(5)
  149. 11480 FIRST%(205)=KIY(5)
  150. 11490 FIRST%(206)=BIN(5)
  151. 11500 FIRST%(207)=KIN(5)
  152. 11510 FIRST%(208)=SEIM(5)
  153. 11520 FIRST%(209)=TIR(5)
  154. 11530 FIRST%(210)=SEIS(5)
  155. 11540 FIRST%(211)=IID(5,1)
  156. 11550 FIRST%(212)=IID(5,2)
  157. 11560 FIRST%(213)=IID(5,3)
  158. 11570 FIRST%(214)=IID(5,4)
  159. 11580 FIRST%(215)=IID(5,5)
  160. 11590 FIRST%(216)=IID(5,6)
  161. 11600 FIRST%(217)=IID(5,7)
  162. 11610 FIRST%(218)=IID(5,8)
  163. 11620 FIRST%(219)=IID(5,9)
  164. 11630 FIRST%(220)=IID(5,10)
  165. 11640 FIRST%(221)=IID(5,11)
  166. 11650 FIRST%(222)=IID(5,12)
  167. 11660 FIRST%(223)=AID(5)
  168. 11670 FIRST%(224)=KIYEXP(5)
  169. 11680 FIRST%(225)=BINEXP(5)
  170. 11690 FIRST%(226)=KINEXP(5)
  171. 11700 FIRST%(227)=SEIMEXP(5)
  172. 11710 FIRST%(228)=MHPEXP(5)
  173. 11720 FIRST%(229)=DEAD(5)
  174. 11730 '
  175. 11740 FIRST%(251)=MHP(6)
  176. 11750 FIRST%(252)=HP(6)
  177. 11760 FIRST%(253)=MMP(6)
  178. 11770 FIRST%(254)=MP(6)
  179. 11780 FIRST%(255)=KIY(6)
  180. 11790 FIRST%(256)=BIN(6)
  181. 11800 FIRST%(257)=KIN(6)
  182. 11810 FIRST%(258)=SEIM(6)
  183. 11820 FIRST%(259)=TIR(6)
  184. 11830 FIRST%(260)=SEIS(6)
  185. 11840 FIRST%(261)=IID(6,1)
  186. 11850 FIRST%(262)=IID(6,2)
  187. 11860 FIRST%(263)=IID(6,3)
  188. 11870 FIRST%(264)=IID(6,4)
  189. 11880 FIRST%(265)=IID(6,5)
  190. 11890 FIRST%(266)=IID(6,6)
  191. 11900 FIRST%(267)=IID(6,7)
  192. 11910 FIRST%(268)=IID(6,8)
  193. 11920 FIRST%(269)=IID(6,9)
  194. 11930 FIRST%(270)=IID(6,10)
  195. 11940 FIRST%(271)=IID(6,11)
  196. 11950 FIRST%(272)=IID(6,12)
  197. 11960 FIRST%(273)=AID(6)
  198. 11970 FIRST%(274)=KIYEXP(6)
  199. 11980 FIRST%(275)=BINEXP(6)
  200. 11990 FIRST%(276)=KINEXP(6)
  201. 12000 FIRST%(277)=SEIMEXP(6)
  202. 12010 FIRST%(278)=MHPEXP(6)
  203. 12020 FIRST%(279)=DEAD(6)
  204. 12030 '
  205. 12040 FIRST%(300)=FL
  206. 12050 FIRST%(301)=X
  207. 12060 FIRST%(302)=Y
  208. 12070 FIRST%(303)=H
  209. 12080 FIRST%(304)=WA
  210. 12090 FIRST%(305)=ENCMAX
  211. 12100 FIRST%(306)=MESSEGE_WA
  212. 12110 '
  213. 12120 FIRST%(350)=ASC(NA$(3))*ASC(NA$(4))
  214. 12130 FIRST%(351)=ASC(NA$(6))+ASC(NA$(2))
  215. 12140 FIRST%(352)=ASC(NA$(2))+ASC(NA$(6))
  216. 12150 FIRST%(353)=ASC(NA$(4))+ASC(NA$(5))
  217. 12160 FIRST%(354)=ASC(NA$(1))+ASC(NA$(6))
  218. 12170 FIRST%(355)=ASC(NA$(5))*ASC(NA$(3))
  219. 12180 FIRST%(356)=ASC(NA$(2))+ASC(NA$(1))
  220. 12190 FIRST%(357)=ASC(NA$(5))+ASC(NA$(5))
  221. 12200 FIRST%(358)=ASC(NA$(1))*ASC(NA$(2))
  222. 12210 FIRST%(359)=ASC(NA$(3))*ASC(NA$(1))
  223. 12220 '
  224. 12230 RETURN
  225.